home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gblib1 / gblib1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-02  |  38.1 KB  |  1,194 lines
  1. VERSION 2.00
  2. Begin Form GBLIB1DEMO 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "GBLIB1 Demo"
  6.    ClientHeight    =   6255
  7.    ClientLeft      =   1305
  8.    ClientTop       =   645
  9.    ClientWidth     =   8535
  10.    Height          =   6945
  11.    Icon            =   GBLIB1.FRX:0000
  12.    Left            =   1245
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   417
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   569
  18.    Top             =   15
  19.    Width           =   8655
  20.    Begin CommandButton btn_ClientZero 
  21.       Caption         =   "Invert"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "Fixedsys"
  25.       FontSize        =   9
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   375
  29.       Left            =   6000
  30.       TabIndex        =   43
  31.       Top             =   4800
  32.       Width           =   1350
  33.    End
  34.    Begin Timer JoyTimer 
  35.       Enabled         =   0   'False
  36.       Interval        =   100
  37.       Left            =   7380
  38.       Top             =   3540
  39.    End
  40.    Begin CommandButton btn_MIDIInfo 
  41.       Caption         =   "MIDIInfo"
  42.       FontBold        =   0   'False
  43.       FontItalic      =   0   'False
  44.       FontName        =   "Fixedsys"
  45.       FontSize        =   9
  46.       FontStrikethru  =   0   'False
  47.       FontUnderline   =   0   'False
  48.       Height          =   375
  49.       Left            =   3120
  50.       TabIndex        =   42
  51.       Top             =   3540
  52.       Width           =   1350
  53.    End
  54.    Begin CommandButton btn_MIDICaps 
  55.       Caption         =   "MIDICaps"
  56.       FontBold        =   0   'False
  57.       FontItalic      =   0   'False
  58.       FontName        =   "Fixedsys"
  59.       FontSize        =   9
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       Height          =   375
  63.       Left            =   4560
  64.       TabIndex        =   41
  65.       Top             =   3540
  66.       Width           =   1350
  67.    End
  68.    Begin CommandButton btn_SoundDriver 
  69.       Caption         =   "WaveInfo"
  70.       FontBold        =   0   'False
  71.       FontItalic      =   0   'False
  72.       FontName        =   "Fixedsys"
  73.       FontSize        =   9
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   375
  77.       Left            =   3120
  78.       TabIndex        =   40
  79.       Top             =   4020
  80.       Width           =   1350
  81.    End
  82.    Begin CommandButton btn_QuerySoundCard 
  83.       Caption         =   "WaveCaps"
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "Fixedsys"
  87.       FontSize        =   9
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       Height          =   375
  91.       Left            =   4560
  92.       TabIndex        =   39
  93.       Top             =   4020
  94.       Width           =   1350
  95.    End
  96.    Begin Frame fra_SoundCapabilities 
  97.       BackColor       =   &H00C0C0C0&
  98.       Caption         =   "WAVE-Playing Capability of this machine"
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   9.75
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       ForeColor       =   &H00800000&
  106.       Height          =   1395
  107.       Left            =   120
  108.       TabIndex        =   26
  109.       Top             =   2040
  110.       Width           =   8235
  111.       Begin CheckBox chk_snd 
  112.          BackColor       =   &H00C0C0C0&
  113.          Caption         =   "16-Bit 44Khz Stereo"
  114.          FontBold        =   0   'False
  115.          FontItalic      =   0   'False
  116.          FontName        =   "Fixedsys"
  117.          FontSize        =   9
  118.          FontStrikethru  =   0   'False
  119.          FontUnderline   =   0   'False
  120.          Height          =   240
  121.          Index           =   11
  122.          Left            =   5400
  123.          TabIndex        =   38
  124.          Top             =   1080
  125.          Width           =   2600
  126.       End
  127.       Begin CheckBox chk_snd 
  128.          BackColor       =   &H00C0C0C0&
  129.          Caption         =   "16-Bit 44Khz Mono"
  130.          FontBold        =   0   'False
  131.          FontItalic      =   0   'False
  132.          FontName        =   "Fixedsys"
  133.          FontSize        =   9
  134.          FontStrikethru  =   0   'False
  135.          FontUnderline   =   0   'False
  136.          Height          =   240
  137.          Index           =   10
  138.          Left            =   5400
  139.          TabIndex        =   37
  140.          Top             =   840
  141.          Width           =   2600
  142.       End
  143.       Begin CheckBox chk_snd 
  144.          BackColor       =   &H00C0C0C0&
  145.          Caption         =   "8-Bit 44Khz Stereo"
  146.          FontBold        =   0   'False
  147.          FontItalic      =   0   'False
  148.          FontName        =   "Fixedsys"
  149.          FontSize        =   9
  150.          FontStrikethru  =   0   'False
  151.          FontUnderline   =   0   'False
  152.          Height          =   240
  153.          Index           =   9
  154.          Left            =   5400
  155.          TabIndex        =   36
  156.          Top             =   600
  157.          Width           =   2600
  158.       End
  159.       Begin CheckBox chk_snd 
  160.          BackColor       =   &H00C0C0C0&
  161.          Caption         =   "8-Bit 44Khz Mono"
  162.          FontBold        =   0   'False
  163.          FontItalic      =   0   'False
  164.          FontName        =   "Fixedsys"
  165.          FontSize        =   9
  166.          FontStrikethru  =   0   'False
  167.          FontUnderline   =   0   'False
  168.          Height          =   240
  169.          Index           =   8
  170.          Left            =   5400
  171.          TabIndex        =   35
  172.          Top             =   360
  173.          Width           =   2600
  174.       End
  175.       Begin CheckBox chk_snd 
  176.          BackColor       =   &H00C0C0C0&
  177.          Caption         =   "16-Bit 22Khz Stereo"
  178.          FontBold        =   0   'False
  179.          FontItalic      =   0   'False
  180.          FontName        =   "Fixedsys"
  181.          FontSize        =   9
  182.          FontStrikethru  =   0   'False
  183.          FontUnderline   =   0   'False
  184.          Height          =   240
  185.          Index           =   7
  186.          Left            =   2760
  187.          TabIndex        =   34
  188.          Top             =   1080
  189.          Width           =   2600
  190.       End
  191.       Begin CheckBox chk_snd 
  192.          BackColor       =   &H00C0C0C0&
  193.          Caption         =   "16-Bit 22Khz Mono"
  194.          FontBold        =   0   'False
  195.          FontItalic      =   0   'False
  196.          FontName        =   "Fixedsys"
  197.          FontSize        =   9
  198.          FontStrikethru  =   0   'False
  199.          FontUnderline   =   0   'False
  200.          Height          =   240
  201.          Index           =   6
  202.          Left            =   2760
  203.          TabIndex        =   33
  204.          Top             =   840
  205.          Width           =   2600
  206.       End
  207.       Begin CheckBox chk_snd 
  208.          BackColor       =   &H00C0C0C0&
  209.          Caption         =   "8-Bit 22Khz Stereo"
  210.          FontBold        =   0   'False
  211.          FontItalic      =   0   'False
  212.          FontName        =   "Fixedsys"
  213.          FontSize        =   9
  214.          FontStrikethru  =   0   'False
  215.          FontUnderline   =   0   'False
  216.          Height          =   240
  217.          Index           =   5
  218.          Left            =   2760
  219.          TabIndex        =   32
  220.          Top             =   600
  221.          Width           =   2600
  222.       End
  223.       Begin CheckBox chk_snd 
  224.          BackColor       =   &H00C0C0C0&
  225.          Caption         =   "8-Bit 22Khz Mono"
  226.          FontBold        =   0   'False
  227.          FontItalic      =   0   'False
  228.          FontName        =   "Fixedsys"
  229.          FontSize        =   9
  230.          FontStrikethru  =   0   'False
  231.          FontUnderline   =   0   'False
  232.          Height          =   240
  233.          Index           =   4
  234.          Left            =   2760
  235.          TabIndex        =   31
  236.          Top             =   360
  237.          Width           =   2600
  238.       End
  239.       Begin CheckBox chk_snd 
  240.          BackColor       =   &H00C0C0C0&
  241.          Caption         =   "16-Bit 11Khz Stereo"
  242.          FontBold        =   0   'False
  243.          FontItalic      =   0   'False
  244.          FontName        =   "Fixedsys"
  245.          FontSize        =   9
  246.          FontStrikethru  =   0   'False
  247.          FontUnderline   =   0   'False
  248.          Height          =   240
  249.          Index           =   3
  250.          Left            =   120
  251.          TabIndex        =   30
  252.          Top             =   1080
  253.          Width           =   2600
  254.       End
  255.       Begin CheckBox chk_snd 
  256.          BackColor       =   &H00C0C0C0&
  257.          Caption         =   "16-Bit 11Khz Mono"
  258.          FontBold        =   0   'False
  259.          FontItalic      =   0   'False
  260.          FontName        =   "Fixedsys"
  261.          FontSize        =   9
  262.          FontStrikethru  =   0   'False
  263.          FontUnderline   =   0   'False
  264.          Height          =   240
  265.          Index           =   2
  266.          Left            =   120
  267.          TabIndex        =   29
  268.          Top             =   840
  269.          Width           =   2600
  270.       End
  271.       Begin CheckBox chk_snd 
  272.          BackColor       =   &H00C0C0C0&
  273.          Caption         =   "8-Bit 11Khz Stereo"
  274.          FontBold        =   0   'False
  275.          FontItalic      =   0   'False
  276.          FontName        =   "Fixedsys"
  277.          FontSize        =   9
  278.          FontStrikethru  =   0   'False
  279.          FontUnderline   =   0   'False
  280.          Height          =   240
  281.          Index           =   1
  282.          Left            =   120
  283.          TabIndex        =   28
  284.          Top             =   600
  285.          Width           =   2600
  286.       End
  287.       Begin CheckBox chk_snd 
  288.          BackColor       =   &H00C0C0C0&
  289.          Caption         =   "8-Bit 11Khz Mono"
  290.          FontBold        =   0   'False
  291.          FontItalic      =   0   'False
  292.          FontName        =   "Fixedsys"
  293.          FontSize        =   9
  294.          FontStrikethru  =   0   'False
  295.          FontUnderline   =   0   'False
  296.          Height          =   240
  297.          Index           =   0
  298.          Left            =   120
  299.          TabIndex        =   27
  300.          Top             =   360
  301.          Width           =   2600
  302.       End
  303.    End
  304.    Begin CommandButton btn_SytemModal 
  305.       Caption         =   "JoyStk Off"
  306.       FontBold        =   0   'False
  307.       FontItalic      =   0   'False
  308.       FontName        =   "Fixedsys"
  309.       FontSize        =   9
  310.       FontStrikethru  =   0   'False
  311.       FontUnderline   =   0   'False
  312.       Height          =   375
  313.       Index           =   1
  314.       Left            =   6000
  315.       TabIndex        =   25
  316.       Top             =   4020
  317.       Width           =   1350
  318.    End
  319.    Begin CommandButton btn_SytemModal 
  320.       Caption         =   "JoyStk On"
  321.       FontBold        =   0   'False
  322.       FontItalic      =   0   'False
  323.       FontName        =   "Fixedsys"
  324.       FontSize        =   9
  325.       FontStrikethru  =   0   'False
  326.       FontUnderline   =   0   'False
  327.       Height          =   375
  328.       Index           =   0
  329.       Left            =   6000
  330.       TabIndex        =   24
  331.       Top             =   3540
  332.       Width           =   1350
  333.    End
  334.    Begin CommandButton btn_SubClass 
  335.       Caption         =   "UnSubClass"
  336.       FontBold        =   0   'False
  337.       FontItalic      =   0   'False
  338.       FontName        =   "Fixedsys"
  339.       FontSize        =   9
  340.       FontStrikethru  =   0   'False
  341.       FontUnderline   =   0   'False
  342.       Height          =   375
  343.       Left            =   1620
  344.       TabIndex        =   23
  345.       Top             =   5280
  346.       Width           =   1350
  347.    End
  348.    Begin CommandButton btn_LoadDLLIcons 
  349.       Caption         =   "DLLIcons"
  350.       FontBold        =   0   'False
  351.       FontItalic      =   0   'False
  352.       FontName        =   "Fixedsys"
  353.       FontSize        =   9
  354.       FontStrikethru  =   0   'False
  355.       FontUnderline   =   0   'False
  356.       Height          =   375
  357.       Left            =   3120
  358.       TabIndex        =   22
  359.       Top             =   4800
  360.       Width           =   1350
  361.    End
  362.    Begin CommandButton btn_LoadIconFrom 
  363.       Caption         =   "EXEIcons"
  364.       FontBold        =   0   'False
  365.       FontItalic      =   0   'False
  366.       FontName        =   "Fixedsys"
  367.       FontSize        =   9
  368.       FontStrikethru  =   0   'False
  369.       FontUnderline   =   0   'False
  370.       Height          =   375
  371.       Left            =   3120
  372.       TabIndex        =   21
  373.       Top             =   5280
  374.       Width           =   1350
  375.    End
  376.    Begin PictureBox picLoadIcon3 
  377.       BackColor       =   &H00C0C0C0&
  378.       Height          =   480
  379.       Left            =   5700
  380.       ScaleHeight     =   30
  381.       ScaleMode       =   3  'Pixel
  382.       ScaleWidth      =   30
  383.       TabIndex        =   20
  384.       Top             =   1140
  385.       Width           =   480
  386.    End
  387.    Begin PictureBox picLoadIcon2 
  388.       BackColor       =   &H00C0C0C0&
  389.       Height          =   480
  390.       Left            =   5100
  391.       ScaleHeight     =   30
  392.       ScaleMode       =   3  'Pixel
  393.       ScaleWidth      =   30
  394.       TabIndex        =   19
  395.       Top             =   1140
  396.       Width           =   480
  397.    End
  398.    Begin PictureBox picLoadIcon1 
  399.       BackColor       =   &H00C0C0C0&
  400.       Height          =   480
  401.       Left            =   4500
  402.       ScaleHeight     =   30
  403.       ScaleMode       =   3  'Pixel
  404.       ScaleWidth      =   30
  405.       TabIndex        =   18
  406.       Top             =   1140
  407.       Width           =   480
  408.    End
  409.    Begin CommandButton btn_StartTimer 
  410.       Caption         =   "ClockCur"
  411.       FontBold        =   0   'False
  412.       FontItalic      =   0   'False
  413.       FontName        =   "Fixedsys"
  414.       FontSize        =   9
  415.       FontStrikethru  =   0   'False
  416.       FontUnderline   =   0   'False
  417.       Height          =   375
  418.       Left            =   4560
  419.       TabIndex        =   17
  420.       Top             =   4800
  421.       Width           =   1350
  422.    End
  423.    Begin PictureBox pic_Icon3 
  424.       BackColor       =   &H00C0C0C0&
  425.       Height          =   480
  426.       Left            =   5700
  427.       ScaleHeight     =   30
  428.       ScaleMode       =   3  'Pixel
  429.       ScaleWidth      =   30
  430.       TabIndex        =   16
  431.       Top             =   420
  432.       Width           =   480
  433.    End
  434.    Begin PictureBox pic_Icon2 
  435.       BackColor       =   &H00C0C0C0&
  436.       Height          =   480
  437.       Left            =   5100
  438.       ScaleHeight     =   30
  439.       ScaleMode       =   3  'Pixel
  440.       ScaleWidth      =   30
  441.       TabIndex        =   15
  442.       Top             =   420
  443.       Width           =   480
  444.    End
  445.    Begin PictureBox pic_Icon1 
  446.       BackColor       =   &H00C0C0C0&
  447.       Height          =   480
  448.       Left            =   4500
  449.       ScaleHeight     =   30
  450.       ScaleMode       =   3  'Pixel
  451.       ScaleWidth      =   30
  452.       TabIndex        =   14
  453.       Top             =   420
  454.       Width           =   480
  455.    End
  456.    Begin CommandButton btn_MilliSecs 
  457.       Caption         =   "MilliSecs"
  458.       FontBold        =   0   'False
  459.       FontItalic      =   0   'False
  460.       FontName        =   "Fixedsys"
  461.       FontSize        =   9
  462.       FontStrikethru  =   0   'False
  463.       FontUnderline   =   0   'False
  464.       Height          =   375
  465.       Left            =   4560
  466.       TabIndex        =   13
  467.       Top             =   5280
  468.       Width           =   1350
  469.    End
  470.    Begin CommandButton btn_Seconds 
  471.       Caption         =   "Seconds"
  472.       FontBold        =   0   'False
  473.       FontItalic      =   0   'False
  474.       FontName        =   "Fixedsys"
  475.       FontSize        =   9
  476.       FontStrikethru  =   0   'False
  477.       FontUnderline   =   0   'False
  478.       Height          =   375
  479.       Left            =   4560
  480.       TabIndex        =   12
  481.       Top             =   5760
  482.       Width           =   1350
  483.    End
  484.    Begin CommandButton btn_UAE 
  485.       Caption         =   "GPF"
  486.       FontBold        =   0   'False
  487.       FontItalic      =   0   'False
  488.       FontName        =   "Fixedsys"
  489.       FontSize        =   9
  490.       FontStrikethru  =   0   'False
  491.       FontUnderline   =   0   'False
  492.       Height          =   375
  493.       Left            =   6000
  494.       TabIndex        =   11
  495.       Top             =   5280
  496.       Width           =   1350
  497.    End
  498.    Begin CommandButton btn_NotePad 
  499.       Caption         =   "NotePad"
  500.       FontBold        =   0   'False
  501.       FontItalic      =   0   'False
  502.       FontName        =   "Fixedsys"
  503.       FontSize        =   9
  504.       FontStrikethru  =   0   'False
  505.       FontUnderline   =   0   'False
  506.       Height          =   375
  507.       Left            =   120
  508.       TabIndex        =   10
  509.       Top             =   5760
  510.       Width           =   1350
  511.    End
  512.    Begin CommandButton btn_calc 
  513.       Caption         =   "Calc"
  514.       FontBold        =   0   'False
  515.       FontItalic      =   0   'False
  516.       FontName        =   "Fixedsys"
  517.       FontSize        =   9
  518.       FontStrikethru  =   0   'False
  519.       FontUnderline   =   0   'False
  520.       Height          =   375
  521.       Left            =   120
  522.       TabIndex        =   9
  523.       Top             =   5280
  524.       Width           =   1350
  525.    End
  526.    Begin CommandButton btn_Decompress 
  527.       Caption         =   "Decomp"
  528.       FontBold        =   0   'False
  529.       FontItalic      =   0   'False
  530.       FontName        =   "Fixedsys"
  531.       FontSize        =   9
  532.       FontStrikethru  =   0   'False
  533.       FontUnderline   =   0   'False
  534.       Height          =   375
  535.       Left            =   1620
  536.       TabIndex        =   8
  537.       Top             =   5760
  538.       Width           =   1350
  539.    End
  540.    Begin CommandButton btn_Size 
  541.       Caption         =   "Si&ze"
  542.       FontBold        =   0   'False
  543.       FontItalic      =   0   'False
  544.       FontName        =   "Fixedsys"
  545.       FontSize        =   9
  546.       FontStrikethru  =   0   'False
  547.       FontUnderline   =   0   'False
  548.       Height          =   375
  549.       Left            =   3120
  550.       TabIndex        =   7
  551.       Top             =   5760
  552.       Width           =   1350
  553.    End
  554.    Begin CommandButton btn 
  555.       Caption         =   "&Text"
  556.       FontBold        =   0   'False
  557.       FontItalic      =   0   'False
  558.       FontName        =   "Fixedsys"
  559.       FontSize        =   9
  560.       FontStrikethru  =   0   'False
  561.       FontUnderline   =   0   'False
  562.       Height          =   375
  563.       Left            =   120
  564.       TabIndex        =   5
  565.       Top             =   4800
  566.       Width           =   1350
  567.    End
  568.    Begin PictureBox pic3 
  569.       BackColor       =   &H00C0C0C0&
  570.       BorderStyle     =   0  'None
  571.       Height          =   750
  572.       Left            =   6360
  573.       ScaleHeight     =   750
  574.       ScaleWidth      =   750
  575.       TabIndex        =   4
  576.       Top             =   180
  577.       Width           =   750
  578.    End
  579.    Begin PictureBox pic2 
  580.       BackColor       =   &H00C0C0C0&
  581.       BorderStyle     =   0  'None
  582.       Height          =   750
  583.       Left            =   6360
  584.       ScaleHeight     =   750
  585.       ScaleWidth      =   750
  586.       TabIndex        =   3
  587.       Top             =   1080
  588.       Width           =   750
  589.    End
  590.    Begin CommandButton btn_Repeat 
  591.       Caption         =   "SubClass"
  592.       Default         =   -1  'True
  593.       FontBold        =   0   'False
  594.       FontItalic      =   0   'False
  595.       FontName        =   "Fixedsys"
  596.       FontSize        =   9
  597.       FontStrikethru  =   0   'False
  598.       FontUnderline   =   0   'False
  599.       Height          =   375
  600.       Left            =   1620
  601.       TabIndex        =   0
  602.       Top             =   4800
  603.       Width           =   1350
  604.    End
  605.    Begin CommandButton btn_exit 
  606.       Cancel          =   -1  'True
  607.       Caption         =   "E&xit Demo"
  608.       FontBold        =   0   'False
  609.       FontItalic      =   0   'False
  610.       FontName        =   "Fixedsys"
  611.       FontSize        =   9
  612.       FontStrikethru  =   0   'False
  613.       FontUnderline   =   0   'False
  614.       Height          =   375
  615.       Left            =   6000
  616.       TabIndex        =   1
  617.       Top             =   5760
  618.       Width           =   1350
  619.    End
  620.    Begin PictureBox pic1 
  621.       BackColor       =   &H00C0C0C0&
  622.       BorderStyle     =   0  'None
  623.       Height          =   1695
  624.       Left            =   180
  625.       ScaleHeight     =   113
  626.       ScaleMode       =   3  'Pixel
  627.       ScaleWidth      =   277
  628.       TabIndex        =   2
  629.       Top             =   180
  630.       Width           =   4155
  631.    End
  632.    Begin Label lbl_FormClick 
  633.       BackStyle       =   0  'Transparent
  634.       Caption         =   "Form Click Area"
  635.       FontBold        =   0   'False
  636.       FontItalic      =   0   'False
  637.       FontName        =   "Fixedsys"
  638.       FontSize        =   9
  639.       FontStrikethru  =   0   'False
  640.       FontUnderline   =   0   'False
  641.       ForeColor       =   &H00000080&
  642.       Height          =   675
  643.       Left            =   7500
  644.       TabIndex        =   44
  645.       Top             =   180
  646.       Width           =   675
  647.    End
  648.    Begin Shape Shape2 
  649.       BackColor       =   &H00C0C0C0&
  650.       BorderColor     =   &H00000080&
  651.       BorderStyle     =   6  'Inside Solid
  652.       BorderWidth     =   2
  653.       FillColor       =   &H00C0C0C0&
  654.       FillStyle       =   0  'Solid
  655.       Height          =   1050
  656.       Left            =   7320
  657.       Top             =   900
  658.       Width           =   1050
  659.    End
  660.    Begin Shape Shape1 
  661.       BorderColor     =   &H00800000&
  662.       BorderStyle     =   6  'Inside Solid
  663.       BorderWidth     =   4
  664.       Height          =   6255
  665.       Left            =   0
  666.       Top             =   0
  667.       Width           =   8535
  668.    End
  669.    Begin Label lbl_Output 
  670.       BackColor       =   &H00C0C0C0&
  671.       BorderStyle     =   1  'Fixed Single
  672.       Caption         =   "Text Here..."
  673.       ForeColor       =   &H00800000&
  674.       Height          =   1155
  675.       Left            =   120
  676.       TabIndex        =   6
  677.       Top             =   3540
  678.       Width           =   2895
  679.    End
  680.    Begin Menu mfile 
  681.       Caption         =   "File"
  682.       Begin Menu mfile_exit 
  683.          Caption         =   "E&xit"
  684.       End
  685.    End
  686.    Begin Menu mGDI 
  687.       Caption         =   "Free GDI"
  688.    End
  689.    Begin Menu mresource 
  690.       Caption         =   "&Resource"
  691.       Begin Menu mdialog 
  692.          Caption         =   "Dialog"
  693.       End
  694.       Begin Menu mresource_Icon 
  695.          Caption         =   "Icon"
  696.       End
  697.       Begin Menu mresource_cursor 
  698.          Caption         =   "Cursor"
  699.       End
  700.       Begin Menu mresource_setarrow 
  701.          Caption         =   "SetArrow"
  702.       End
  703.       Begin Menu res_MTDLL 
  704.          Caption         =   "EmptyDLL"
  705.       End
  706.    End
  707.    Begin Menu mhelp 
  708.       Caption         =   "Help"
  709.       Begin Menu mhelp_About 
  710.          Caption         =   "About..."
  711.       End
  712.    End
  713. Option Explicit
  714. Dim X As Integer
  715. Dim lpSzr As String * 512
  716. Dim JX As Long
  717. Dim JY As Long
  718. Dim JRB As Integer
  719. Dim JLB As Integer
  720. Sub btn_calc_Click ()
  721. X = ModalCalc()
  722. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  723. End Sub
  724. Sub btn_Click ()
  725. Dim msg As String
  726. msg = VBSetTextFromDLL("vbres.dll", "DLLNAME") & Chr$(13)
  727. msg = msg & "Version " & VBSetTextFromDLL("vbres.dll", "VERSION") & Chr$(13)
  728. msg = msg & VBSetTextFromDLL("vbres.dll", "COPYRIGHT")
  729. lbl_OutPut.Caption = msg
  730. lbl_OutPut.Refresh
  731. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  732. End Sub
  733. Sub btn_ClientZero_Click ()
  734. Dim WRECT As TRECT
  735. WRECT.Left = 0
  736. WRECT.Top = 0
  737. WRECT.Right = Width
  738. WRECT.Bottom = Height
  739. InvertRect Me.hDC, WRECT
  740. DoEvents
  741. InvertRect Me.hDC, WRECT
  742. DoEvents
  743. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  744. End Sub
  745. Sub btn_Decompress_Click ()
  746. X = GBDecompress(WINDIR & "\sysclik.tx_", "c:\windows\decomp.txt")
  747. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  748. End Sub
  749. Sub btn_exit_Click ()
  750. Unload Me
  751. End Sub
  752. Sub btn_LoadDLLIcons_Click ()
  753. X = LoadDLLIcon("vbres.dll", "SPECCY", pic_Icon1.hWnd)
  754. X = LoadDLLIcon("vbres.dll", "GB", pic_Icon2.hWnd)
  755. X = LoadDLLIcon("vbres.dll", "PROGICON", pic_Icon3.hWnd)
  756. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  757. End Sub
  758. Sub btn_LoadIconFrom_Click ()
  759. X = LoadEXEIcon(picLoadIcon1.hWnd, WINDIR & "\PROGMAN.EXE")
  760. X = LoadEXEIcon(picLoadIcon2.hWnd, WINDIR & "\CONTROL.EXE")
  761. X = LoadEXEIcon(picLoadIcon3.hWnd, WINDIR & "\WINFILE.EXE")
  762. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  763. End Sub
  764. Sub btn_MIDICaps_Click ()
  765. Dim msg As String
  766. Dim nl As String
  767. nl = Chr$(10)
  768. msg = "MIDI Capabilities" & nl
  769. msg = msg & "Vendor  ID: " & Format$(GetMIDIVendorID()) & nl
  770. msg = msg & "Product ID: " & Format$(GetMIDIProductID()) & nl
  771. msg = msg & "No. of Voices: " & Format$(GetMIDIVoices()) & nl
  772. msg = msg & "No. of Notes: " & Format$(GetMIDINotes()) & nl
  773. msg = msg & "No. of Channels: " & Format$(GetMIDINumChannels())
  774. MsgBox msg, 64, "GBLIB.DLL Report"
  775. End Sub
  776. Sub btn_MIDIInfo_Click ()
  777. Dim msg As String
  778. Dim ALen As Integer
  779. Dim Major As Integer
  780. Dim Minor As Integer
  781. Dim i_RetVal As Integer
  782. Dim szBuf As String * 255
  783. i_RetVal = GetMIDIDriverVersion(Major, Minor)
  784. If i_RetVal Then
  785.     MsgBox "Error in GetMIDIDriverVersion", 48, "GBLIB1.DLL"
  786.     Exit Sub
  787. End If
  788. MsgBox "Driver version is " & Format$(Major) & "." & Format$(Minor), 64, "GetMIDIProductVersion"
  789. ALen = GetMIDIProductName(szBuf, 255)
  790. msg = "Driver: " & Left$(szBuf, ALen)
  791. MsgBox msg, 64, "GBLIB1 - GetMIDIProductName"
  792. End Sub
  793. Sub btn_MilliSecs_Click ()
  794. btn_MilliSecs.Caption = "Starting.."
  795. DoEvents
  796. For X = 1 To 50
  797.     WAITFORL 100
  798.     btn_MilliSecs.Caption = Format$(X * 100)
  799.     SpeakerBeep
  800. Next X
  801. btn_MilliSecs.Caption = "MilliSecs"
  802. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  803. End Sub
  804. Sub btn_NotePad_Click ()
  805. X = ModalNotePad()
  806. 'X = ModalNotePadExec("c:\windows\sysclik.txt")
  807. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  808. End Sub
  809. Sub btn_QuerySoundCard_Click ()
  810. Dim msg As String
  811. Dim nl As String
  812. nl = Chr$(10)
  813. msg = "WAVE Capabilities" & nl
  814. msg = msg & "Vendor  ID: " & Format$(GetWaveVendorID()) & nl
  815. msg = msg & "Product ID: " & Format$(GetWaveProductID()) & nl
  816. msg = msg & "No. of Channels: " & Format$(GetWaveNumChannels())
  817. MsgBox msg, 64, "GBLIB.DLL Report"
  818. End Sub
  819. Sub btn_Repeat_Click ()
  820. SubClassIt Me.hWnd
  821. SpeakerBeep
  822. End Sub
  823. Sub btn_Seconds_Click ()
  824. btn_Seconds.Caption = "Starting.."
  825. For X = 1 To 5
  826.     WaitFor 1
  827.     btn_Seconds.Caption = Format$(X)
  828.     SpeakerBeep
  829. Next X
  830. btn_Seconds.Caption = "Seconds"
  831. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  832. End Sub
  833. Sub btn_Size_Click ()
  834. X = LoadDLLCursor("vbres.dll", "SWATCH", btn_Size.hWnd)
  835. LoadAPicture pic1, "SPLASH1", 0
  836. LoadAPicture pic2, "COMPUP", 0
  837. LoadAPicture pic3, "LTUP", 0
  838. LoadAPicture pic1, "COMPUP", 1
  839. LoadAPicture pic2, "LTUP", 1
  840. LoadAPicture pic3, "SPLASH1", 1
  841. LoadAPicture pic1, "LTUP", 1
  842. LoadAPicture pic2, "SPLASH1", 1
  843. LoadAPicture pic3, "COMPUP", 1
  844. LoadAPicture pic1, "SPLASH1", 0
  845. LoadAPicture pic2, "COMPUP", 0
  846. LoadAPicture pic3, "LTUP", 0
  847. LoadAPicture pic1, "COMPUP", 1
  848. LoadAPicture pic2, "LTUP", 1
  849. LoadAPicture pic3, "SPLASH1", 1
  850. LoadAPicture pic1, "LTUP", 1
  851. LoadAPicture pic2, "SPLASH1", 1
  852. LoadAPicture pic3, "COMPUP", 1
  853. Dim SH As Integer
  854. Dim SW As Integer
  855. For X = 1 To 2
  856.     If X = 1 Then
  857.         SH = 50
  858.         SW = 50
  859.     Else
  860.         SH = 57
  861.         SW = 55
  862.     End If
  863.     Dim L As Integer
  864.     Dim T As Integer
  865.     For T = 0 To SH Step SH
  866.         For L = 0 To SW * 4 Step SW
  867.             LoadAPictureTo pic1, "COMPUP", L, T, SW, SH
  868.             LoadAPictureTo pic1, "COMPMID", L, T, SW, SH
  869.             LoadAPictureTo pic1, "COMPDOWN", L, T, SW, SH
  870.             LoadAPictureTo pic1, "COMPUP", L, T, SW, SH
  871.         Next L
  872.     Next T
  873.     For T = 0 To SH Step SH
  874.         For L = 0 To SW * 4 Step SW
  875.             LoadAPictureTo pic1, "LTUP", L, T, SW, SH
  876.             LoadAPictureTo pic1, "LTDOWN", L, T, SW, SH
  877.             LoadAPictureTo pic1, "LTUP", L, T, SW, SH
  878.         Next L
  879.     Next T
  880. Next X
  881. LoadAPicture pic1, "SPLASH1", 0
  882. LoadAPicture pic2, "COMPUP", 0
  883. LoadAPicture pic3, "LTUP", 0
  884. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  885. DestroyDLLCursor
  886. X = SetArrow(btn_Size.hWnd)
  887. End Sub
  888. Sub btn_SoundDriver_Click ()
  889. Dim szBuf As String * 255
  890. Dim msg As String
  891. Dim ALen As Integer
  892. Dim Major As Integer
  893. Dim Minor As Integer
  894. Dim i_RetVal As Integer
  895. i_RetVal = GetWaveDriverVersion(Major, Minor)
  896. If i_RetVal Then
  897.     MsgBox "Error in GetWaveDriverVersion", 48, "GBLOB1.DLL"
  898.     Exit Sub
  899. End If
  900. MsgBox "Driver version is " & Format$(Major) & "." & Format$(Minor)
  901. ALen = GetWaveProductName(szBuf, 255)
  902. msg = Left$(szBuf, ALen)
  903. MsgBox msg, 64, "Sound Card Driver Name"
  904. End Sub
  905. Sub btn_StartTimer_Click ()
  906. Dim i As Integer
  907. StartWait Me.hWnd
  908. For i = 1 To 12
  909.     WAITFORL 500
  910.     WaitOne
  911.     SpeakerBeep
  912. Next i
  913. StopWait
  914. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  915. End Sub
  916. Sub btn_SubClass_Click ()
  917. UnSubClassIt
  918. End Sub
  919. Sub btn_SytemModal_Click (Index As Integer)
  920. If Index = 0 Then
  921.     SetUpJoyStick Me.hWnd
  922.     JoyTimer.Enabled = True
  923.     UnSetUpJoystick
  924.     JoyTimer.Enabled = False
  925.     Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  926. End If
  927. End Sub
  928. Sub btn_UAE_Click ()
  929. Dim ans As Integer
  930. 'ans = MsgBox("Are you sure you want a GPF?", 36, "Make a GPF")
  931. 'If ans = 6 Then MakeUAE
  932. MakeUAE
  933. MsgBox "Only Kidding!", 48, "GOTCHA"
  934. End Sub
  935. Sub chk_snd_Click (Index As Integer)
  936. If chk_snd(Index).Value = False Then chk_snd(Index).Value = 1
  937. End Sub
  938. Sub DoDemo ()
  939. LoadAPicture pic1, "SPLASH1", 0
  940. LoadAPicture pic1, "SPLASH2", 0
  941. LoadAPicture pic1, "SPLASH3", 0
  942. LoadAPicture pic1, "SPLASH4", 0
  943. LoadAPicture pic1, "SPLASH1", 0
  944. LoadAPicture pic2, "COMPUP", 0
  945. LoadAPicture pic2, "COMPMID", 0
  946. LoadAPicture pic2, "COMPDOWN", 0
  947. Click
  948. LoadAPicture pic2, "COMPUP", 0
  949. LoadAPicture pic3, "LTUP", 0
  950. LoadAPicture pic3, "LTDOWN", 0
  951. Click
  952. LoadAPicture pic3, "LTUP", 0
  953. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  954. End Sub
  955. Sub DoSoundStuff ()
  956. chk_snd(0).Value = WillPlay811Mono()
  957. chk_snd(1).Value = WillPlay811Stereo()
  958. chk_snd(2).Value = WillPlay1611Mono()
  959. chk_snd(3).Value = WillPlay1611Stereo()
  960. chk_snd(4).Value = WillPlay822Mono()
  961. chk_snd(5).Value = WillPlay822Stereo()
  962. chk_snd(6).Value = WillPlay1622Mono()
  963. chk_snd(7).Value = WillPlay1622Stereo()
  964. chk_snd(8).Value = WillPlay844Mono()
  965. chk_snd(9).Value = WillPlay844Stereo()
  966. chk_snd(10).Value = WillPlay1644Mono()
  967. chk_snd(11).Value = WillPlay1644Stereo()
  968. End Sub
  969. Sub Form_Activate ()
  970. LoadAPicture pic1, "SPLASH1", 0
  971. LoadAPicture pic2, "COMPUP", 0
  972. LoadAPicture pic3, "LTUP", 0
  973. Refresh
  974. DoEvents
  975. SystemStart
  976. End Sub
  977. Sub Form_Load ()
  978. Top = (screen.Height - Height) / 2
  979. Left = (screen.Width - Width) / 2
  980. GetWinDirs
  981. mhelp.Caption = Chr$(8) & mhelp.Caption
  982. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  983. DoSoundStuff
  984. End Sub
  985. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  986. Dim msg As String
  987. If Button = 1 Then
  988.     MsgBox "Left_MouseButton Clicked", 64, "Form_MouseDown"
  989.     Exit Sub
  990.     '   //If subClassing then X= following values: //
  991.     '   //1=NC_Left, 2=NC_Right, 3=Form_Move, 4=Compacting, 5=POWER//
  992.     Select Case X
  993.     Case 0
  994.         msg = "Non-Client Left Button clicked."
  995.     Case 1
  996.         msg = "Non-Client Right Button clicked."
  997.     Case 2
  998.         Dim WX As Integer
  999.         Dim WY As Integer
  1000.         GetClientZero Me.hWnd, WX, WY
  1001.         msg = "Window moved to Screen Co-Ordinates" & Chr$(10)
  1002.         msg = msg & "X=" & Format$(WX) & " Y=" & Format$(WY)
  1003.         
  1004.     Case 3
  1005.         msg = "Windows is Compacting Memory."
  1006.         MsgBox msg, 64, "Subclassing via GBLIB1.DLL"
  1007.         UnSubClassIt
  1008.     Case 4
  1009.             msg = "Power Management enacted."
  1010.     Case 5
  1011.             msg = "ScreenSaver tried to kick in."
  1012.     Case 6
  1013.             msg = "WIN.INI has been changed."
  1014.     Case Else
  1015.         msg = "Right_MouseButton Clicked"
  1016.     End Select
  1017.     MsgBox msg, 64, "Subclassing via GBLIB1.DLL"
  1018. End If
  1019. End Sub
  1020. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1021. lbl_OutPut.Caption = ""
  1022. End Sub
  1023. Sub Form_Paint ()
  1024. 'LoadAPicture pic1, "SPLASH1", 0
  1025. 'LoadAPicture pic2, "COMPUP", 0
  1026. 'LoadAPicture pic3, "LTUP", 0
  1027. End Sub
  1028. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  1029. UnSubClassIt
  1030. End Sub
  1031. Sub JoyTimer_Timer ()
  1032. 'Exit Sub
  1033. GetJoyPos JX, JY, JRB, JLB
  1034. If JLB = 1 Then MsgBox "Left Button Pressed"
  1035. If JRB = 1 Then MsgBox "Right Button Pressed"
  1036. Caption = "Joy-X=" & Format$(JX) & " Joy-Y=" & Format$(JY)
  1037. End Sub
  1038. Sub lbl_FormClick_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1039. Form_MouseDown Button, Shift, X, Y
  1040. End Sub
  1041. Sub LoadAPicture (c As Control, sz As String, bstretch As Integer)
  1042. Dim i_RetVal As Integer
  1043. Dim hwind As Integer
  1044. hwind = c.hWnd
  1045. i_RetVal = LoadDLLBitmap("vbres.dll", sz, hwind, 1)
  1046. If i_RetVal Then
  1047.     MsgBox "Returned an error", 16, "LoadDLLBitmap Function"
  1048.     End
  1049. End If
  1050. End Sub
  1051. Sub LoadAPictureTo (c As Control, sz As String, L, T, R, B As Integer)
  1052. Dim i_RetVal As Integer
  1053. Dim hwind As Integer
  1054. hwind = c.hWnd
  1055. i_RetVal = LoadDLLBitmapTo("vbres.dll", sz, hwind, L, T, R, B)
  1056. If i_RetVal Then
  1057.     MsgBox "Returned an error", 16, "LoadDLLBitmapTo Function"
  1058.     End
  1059. End If
  1060. End Sub
  1061. Sub mdialog_Click ()
  1062. X = LoadDLLDialog("vbres.dll", "ABOUT", Me.hWnd)
  1063. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1064. End Sub
  1065. Sub mfile_exit_Click ()
  1066. Unload Me
  1067. End Sub
  1068. Sub mGDI_Click ()
  1069. Caption = "Free GDI - " & Format$(GetFreeSystemResources(1), "#0\%")
  1070. End Sub
  1071. Sub mhelp_About_Click ()
  1072. Gordon
  1073. About Me.hWnd
  1074. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1075. End Sub
  1076. Sub mresource_cursor_Click ()
  1077. X = LoadDLLCursor("vbres.dll", "WAND", pic1.hWnd)
  1078. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1079. End Sub
  1080. Sub mresource_Icon_Click ()
  1081. X = LoadDLLIconXY("vbres.dll", "SPECCY", pic1.hWnd, 0, 0)
  1082. X = LoadDLLIconXY("vbres.dll", "GB", pic1.hWnd, 32, 0)
  1083. X = LoadDLLIconXY("vbres.dll", "PROGICON", pic1.hWnd, 64, 0)
  1084. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1085. End Sub
  1086. Sub mresource_setarrow_Click ()
  1087. DestroyDLLCursor
  1088. X = SetArrow(pic1.hWnd)
  1089. X = GBSetCursorPos(Me.hWnd, Me.ScaleWidth / 2, Me.ScaleHeight / 2)
  1090. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1091. End Sub
  1092. Sub pic_Icon1_Click ()
  1093. X = LoadDLLIcon("vbres.dll", "GB", pic_Icon1.hWnd)
  1094. End Sub
  1095. Sub pic_Icon2_Click ()
  1096. X = LoadDLLIcon("vbres.dll", "SPECCY", pic_Icon2.hWnd)
  1097. End Sub
  1098. Sub pic_Icon3_Click ()
  1099. X = LoadDLLIcon("vbres.dll", "GB", pic_Icon3.hWnd)
  1100. End Sub
  1101. Sub pic1_Click ()
  1102. X = LoadDLLCursor("vbres.dll", "SWATCH", pic1.hWnd)
  1103. LoadAPicture pic1, "SPLASH2", 0
  1104. LoadAPicture pic1, "SPLASH3", 0
  1105. LoadAPicture pic1, "SPLASH4", 0
  1106. LoadAPicture pic1, "SPLASH1", 0
  1107. X = PlayDLLWave("vbres.dll", "PUCK")
  1108. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1109. 'pic1.ScaleWidth
  1110. DestroyDLLCursor
  1111. X = SetArrow(pic1.hWnd)
  1112. X = GBSetCursorPos(pic1.hWnd, 1, 1)
  1113. End Sub
  1114. Sub pic1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1115. Dim msg As String
  1116. X = GetDLLBitmapSize("vbres.dll", "SPLASH1", ARECT)
  1117. msg = Format$(ARECT.Right)
  1118. msg = msg & " Pixels x "
  1119. msg = msg & Format$(ARECT.Bottom)
  1120. msg = msg & " Pixels"
  1121. lbl_OutPut.Caption = msg
  1122. End Sub
  1123. Sub pic2_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1124. X = LoadDLLCursor("vbres.dll", "WOMAN", pic2.hWnd)
  1125. LoadAPicture pic2, "COMPMID", 0
  1126. LoadAPicture pic2, "COMPDOWN", 0
  1127. Click
  1128. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1129. DestroyDLLCursor
  1130. X = SetArrow(pic2.hWnd)
  1131. End Sub
  1132. Sub pic2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1133. Dim msg As String
  1134. X = GetDLLBitmapSize("vbres.dll", "COMPUP", ARECT)
  1135. msg = Format$(ARECT.Right)
  1136. msg = msg & " Pixels x "
  1137. msg = msg & Format$(ARECT.Bottom)
  1138. msg = msg & " Pixels"
  1139. lbl_OutPut.Caption = msg
  1140. End Sub
  1141. Sub pic2_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1142. LoadAPicture pic2, "COMPMID", 0
  1143. LoadAPicture pic2, "COMPUP", 0
  1144. End Sub
  1145. Sub pic3_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1146. X = LoadDLLCursor("vbres.dll", "MAN", pic2.hWnd)
  1147. LoadAPicture pic3, "LTDOWN", 0
  1148. Marts
  1149. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1150. DestroyDLLCursor
  1151. X = SetArrow(pic3.hWnd)
  1152. End Sub
  1153. Sub pic3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1154. Dim msg As String
  1155. X = GetDLLBitmapSize("vbres.dll", "LTUP", ARECT)
  1156. msg = Format$(ARECT.Right)
  1157. msg = msg & " Pixels x "
  1158. msg = msg & Format$(ARECT.Bottom)
  1159. msg = msg & " Pixels"
  1160. lbl_OutPut.Caption = msg
  1161. End Sub
  1162. Sub pic3_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1163. LoadAPicture pic3, "LTUP", 0
  1164. End Sub
  1165. Sub picLoadIcon1_Click ()
  1166. X = LoadEXEIcon(picLoadIcon1.hWnd, WINDIR & "\CLOCK.EXE")
  1167. End Sub
  1168. Sub picLoadIcon2_Click ()
  1169. X = LoadEXEIcon(picLoadIcon2.hWnd, WINDIR & "\CLOCK.EXE")
  1170. End Sub
  1171. Sub picLoadIcon3_Click ()
  1172. X = LoadEXEIcon(picLoadIcon3.hWnd, WINDIR & "\CLOCK.EXE")
  1173. End Sub
  1174. Sub res_MTDLL_Click ()
  1175. X = LoadDLLBitmap(SYSDIR & "\shell.dll", "130", pic1.hWnd, 1)
  1176. lbl_OutPut.Caption = VBSetTextFromDLL("emptydll.dll", "DLLNAME")
  1177. lbl_OutPut.Refresh
  1178. X = PlayDLLWave("emptydll.dll", "BELCH")
  1179. Caption = "Free SysRes. - " & Format$(GetFreeSystemResources(0), "#0\%")
  1180. End Sub
  1181. Function VBSetTextFromDLL (dll As String, sz As String) As String
  1182. Dim i_RetVal As Integer
  1183. Dim szlen As Integer
  1184. szlen = 512
  1185. lpSzr = String$(512, 0)
  1186. i_RetVal = GetDLLText(dll, sz, lpSzr, szlen)
  1187. If i_RetVal Then
  1188.     MsgBox "Bad return from GetDLLText", 16, "ERROR"
  1189.     VBSetTextFromDLL = "unknown"
  1190.     Exit Function
  1191. End If
  1192. VBSetTextFromDLL = Left$(lpSzr, szlen)
  1193. End Function
  1194.